﻿Imports Microsoft.DirectX.Direct3D
Imports Microsoft.DirectX
''' <summary>
''' Billige Variante
''' </summary>
''' <remarks></remarks>
Public Class ObjektChat
    Dim TextZeile As ObjektTextbox

    Public Sub New()
        TextZeile = New ObjektTextbox(100, DataSettings.BildschirmHoehe / 2 - 10, DataSettings.BildschirmBreite - 200, New PointF(0.5#, 0.5#))
        TextZeile.Focus()
        Hauptmenue.MainMenue.txtChatbox.Text = ""
        Hauptmenue.MainMenue.txtChatbox.Focus()
    End Sub
    Public Function Text() As String
        Return TextZeile.GetText
    End Function
    Public Sub RemoveHandles()
        TextZeile.RemoveHandles()
    End Sub
    Public Sub ChangeWindowSize(ByVal PosChange As Point)
        TextZeile.ChangeWindowSize(PosChange)
    End Sub
End Class
